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BASIC-M source programs may be such that their size or 
memory requirements render their compilation impossible 
due to the BASIC-M compiler design approach which 
assumes the source be wholly memory-resident at the time 
compilation is initiated. There are several methods which can 
be used separately or jointly to overcome this problem: use of 
the compiler-mode, use of the compiler "S" option to 
minimize the object code requirements, assignment of the 
Data Section, coding of constants as hexadecimal values, 
definition of integer or byte variables whenever possible, 
partitioning of the source into several modules to be 
compiled separately and chained atexecution using the 
XDOS SCALL CMND, . . . etc. This note describes how to 
partition the source into several modules which are compiled 
separately, and which may reside in ROMs in the final 
environment. It outlines the user-program design constraints, 
and illustrates the assembly routine used to call one module 
from another. We are restricting this study to a two-object 
module partition. 



COMPILER CODE GENERATION 

The following code is generated by the BASIC-M 
compiler at the beginning of each object program: 

START CLRA 

LDS #STACK Stack pointer and data section initialization 

JSR INIT 

FCC /WRR/ Runtime vers ion/revision 

FOB DSEC Start address of data section 

FOB PSEC— START Offset to statement code 

DATA constants and ztrr-B-r.} descriptors 
» 

FCB 

PSEC EQU * BesfirminsJ of statement code 
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PARTITIONING THE SOURCE 
PROGRAM 

Let's assume that the source needs to be partitioned 
in two modules, hereafter referred to as Ml, and M2. 
Ml is the main module, i.e., it contains the object code 
to which control is transferred first. The following 
rules apply: 

1. M2 must be written as a subroutine and therefore 
must terminate with a RETURN statement, unless 
control is not given back to Ml. 

2. The variables local to Ml and those local to M2 
must reside in two distinct data sections, the 
origins of which are specified in the COMPILE 
command. Of course, the user must insure that the 
two data sections do not overlap. To that end, it is 
recommended 'to compile Ml first, and then to 
deduce the origin of the data section for M2 from 
the highest data section address of Ml as reflected 
in the symbol table issued on completion of the 
compilation of Ml. 

3. The global variables, i.e., those common to M 1 and 
M2, must be explicitly defined in each module by 
a declaration statement to assign the variable 
absolute address (ADDRESS clause). It should be 
emphasized that such variables will not be initial- 
ized by the runtime package, therefore no assump- 
tion must be made as to their initial value. 

4. All the DATA statements must reside in Ml. 

5. In order to obtain an accurate indication of error 
in the event one occurs, it is recommended (but not 
mandatory) that line numbers in Ml be distinct 
from line numbers in M2. 

6. Ml statements cannot transfer control to a 
specific statement in M2, and vice-versa. It is only 
possible to call a secondary module (M2) from 
another module. 

7. Ml cannot call user-written functions/procedures 
defined in M2, nor can M2 call functions/proce- 
dures defined in Ml. 



8. In order to transfer control to M2 from Ml, an 
external assembly procedure, hereafter referred 
to as "CALLM2", needs to be declared in Ml, and 
further activated when desired. 

9. Statements which may implicitly transfer control 
from one module to the other must be deactivated 
prior to entering a given module and reactivated 
upon return from the called module. Those state- 
ments include: 

.WHEN ... THEN 

.ON ERROR THEN 

.ON NMI (IRQ, FIRQ) THEN 

.ON KEY ... THEN 

ASSEMBLY CONTROL 
ROUTINE "CALLM2" 

This subroutine is listed in Figure 1. It supports a 
real or integer argument which dictates whether the 
data section of module M2 must be cleared or not upon 
entry in M2. Note that on the first call to CALLM2 one 
must specify no argument or an argument equal to zero 
so as to initialize the data section of M2. Not doing so 
may preclude the normal recognition of execution 
errors. Further calls to M2 may specify an argument 
different from zero if the user desires to preserve the 
data of M2 as set up by the previous call. 

EXAMPLE 

The appendix contains a sample program to illus- 
trate the procedures and rules described. A BASIC-M 
program has been split in two modules Ml and M2. Ml 
is intended to generate 100 random numbers in a vec- 
tor A(100). M2 is aimed at printing a subrange of the 
same vector A between two subscripts K and L to be 
input at execution time. The example assumes that the 
BASIC-M runtime package starts at $6500. The 
MERGE command concatenates the object modules 
CALLM2 (org $2000), Ml (org $2200), and M2 (org 
$2800) into the final user code OBJECT, and forces 
the Ml origin as start address. 
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APPENDIX 



BASIC-M 2,02 
COPYRIGHT BY MOTOROLA » INC. 1.979 



READY 
LIST 



00 01.0 REM MODULE Ml 

00 020 REM - PSCT BASED AT *220 **>k DSCT BASED AT $60 

030 REM 

00040 REM — GENERATE 100 RANDOM VALUES IN ARRAY ACI.00) 

00 050 REM CALL MODULE M2 TO HAVE A SUBRANGE OF A<100) 

00 060 REM LISTED (FROM ROW K TO ROW L) 

00 070 REM — 

00 080 EXTERNAL CAI..LM2 ADDR $2000 

00 090 REM COMMON VARIABLES DECLARATION 

01.00 REM COMMON SECTION BASED AT *10 

001.1.0 INTEGER PASS ADDR *Q100 

01.20 DIM A<100) ADDR *0102 

01.30 REM 

00.1.40 DATA "WE ARE NOW IN M2">"WE ARE NOW BACK IN Ml." 

0150 PASS**Q \ INITIALIZE PASS TO 

01.60 FOR 1=1 TO 1.00 

001.70 A < I ) » RND 

01.80 NEXT I 

001.90 PA8S**PAS8+1 

0200 CALLM2<PASS-1 ) \ ON FIRST CALL r DATA SECTION WILL BE 

021.0 READ MESG* 

00220 PRINT MESG* 

00230 RESTORE 

00240 GOTO 1.60 



CLEARED 



READY 

COMPILE M f R-1U650 » D=*600 
NO ERROR 

CALI...M2 ******************* L * * * * * * HO 00 * * * * * 
PASS ********************* X. ****** \.00 * * * * * 

fit* * *, ************** *R* * * * * » 01 02* * * *1 

X. ************************ R ****** 0&0%. * * * * * 
MI::.SG$ ******************** 3 ****** 06(17 * * * * * 

DSCT: 060 0- 0AD6 ... So let's start M2 DSCT at $BOO. 

PSCT J AEDA-7Q48 




READY 
QUIT 

CREATE OBJECT FILE Ml *LO:0 ( Y/N ) ? Y 

ENTER PROGRAM HEX ORIGIN OfcXXXX) i *2200 
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BASIC- M 2.02 
COPYRIGHT BY MOTOROLA* INC. 1979 



READY 
LIST 

01000 REM MODULE 2 

01010 REM — PSCT BASED AT *280 *** DSCT BASED AT «B0 

01020 REM - - 

01030 REM - IT PRINTS OUT A SUBRANGE OF ARRAY ACL 00) 

01040 REM DECLARE COMMON VARIABLES 

01050 INTEGER PASS ADDR *0100 

01060 DIM AC 100) ADDR *Q1Q2 

01070 REM 

01080 READ m 

01090 PRINT M* 

0110 PRINT USING lllOrPASS 

OHIO IMAGE "THIS IS PASS #C23" 

01120 INPUT "SUBRANGE K AND L : " rKtL 

01130 IF K>L THEN 1120 

01140 FOR INDEX=K TO L 

1 150 PRINT INDEX > A ( INDEX ) 

01160 NEXT INDEX 

01170 RETURN 

READY 

COMPILE M f R=*650 » D«*B00 
NO ERROR 

F*'A\!>*:) I. ♦♦♦♦♦♦ J. ()♦♦♦♦♦ 

A ........ ♦ ♦ . ♦ .R ...... 0102 ♦ ... 1 

M* .S. .... . 0B02 ..... 



DSCT : 0BOO-OFEO 
PSCT ! ADEF-6F44 

READY 
QUIT 

CREATE OBJECT FILE M2 R LOJ0 (Y/N) ? Y 




0B 22 
0B27 
0B2C 



ENTER PROGRAM HEX ORIGIN (*XXXX> i *2800 



"MERGE CALLM2 . LO » Ml . LO » M2 . LO » OBJECT . LO 1 220 
=BASICM DUMMY 



BASIC-M 2.02 
COPYRIGHT BY MOTOROLA » INC. 1979 



READY 
QUIT 

SAVE <Y/N> ?N 
■=LOAD OBJECT 



This is just for loading the Runtime at $6500 

(default address) 



. JP WE ARE NOW IN M2 
THIS IS PASS # 1 
SUBRANGE K AND L : ? 2 4 

2 9.15583223E-Q5 

3 6. 4088730 1E--04 

4 3.11284885E--03 
WE ARE NOW BACK IN Ml 

WE ARE NOW IN M2 
THIS IS PASS * 2 
SUBRANGE K AND L t ? 99 101 



99 0.674710883 

100 ,0.876549642 

**x ERROR #19 AT LINE 1150 (index out of range) 

101 -4151162.5 



WE ARE NOW BACK IN Ml 

WE ARE NOW IN M2 

THIS IS PASS * 3 

SUBRANGE K AND L i ? 1 

SUBRANGE K AND L : ? 2. 2 

2 0.932374047 

WE ARE NOW BACK IN Ml 

WE ARE NOW IN M2 

THIS IS PASS * 4 

SUBRANGE K AND L *. ? 

SIOP *** OPERATOR ABORT *** 

(CTRL-P was typed) 
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